home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / T U R B O Language / Turbo Pascal V7.0 / INTRFACE.ZIP / SYSTEM.INT < prev    next >
Text File  |  1992-10-30  |  3KB  |  68 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 7.0                        }
  5. {       System Unit                                     }
  6. {                                                       }
  7. {       Copyright (C) 1988,92 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit System;
  12.  
  13. interface
  14.  
  15. const
  16.   OvrCodeList: Word = 0;        { Overlay code segment list }
  17.   OvrHeapSize: Word = 0;    { Initial overlay buffer size }
  18.   OvrDebugPtr: Pointer = nil;    { Overlay debugger hook }
  19.   OvrHeapOrg: Word = 0;        { Overlay buffer origin }
  20.   OvrHeapPtr: Word = 0;        { Overlay buffer pointer }
  21.   OvrHeapEnd: Word = 0;        { Overlay buffer end }
  22.   OvrLoadList: Word = 0;    { Loaded overlays list }
  23.   OvrDosHandle: Word = 0;    { Overlay DOS handle }
  24.   OvrEmsHandle: Word = $FFFF;    { Overlay EMS handle }
  25.   HeapOrg: Pointer = nil;    { Heap origin }
  26.   HeapPtr: Pointer = nil;    { Heap pointer }
  27.   HeapEnd: Pointer = nil;    { Heap end }
  28.   FreeList: Pointer = nil;    { Free list pointer }
  29.   FreeZero: Pointer = nil;    { Must be zero }
  30.   HeapError: Pointer = nil;     { Heap error function }
  31.   ExitProc: Pointer = nil;    { Exit procedure }
  32.   ExitCode: Integer = 0;    { Exit code }
  33.   ErrorAddr: Pointer = nil;    { Runtime error address }
  34.   PrefixSeg: Word = 0;        { Program segment prefix }
  35.   StackLimit: Word = 0;        { Stack pointer low limit }
  36.   InOutRes: Integer = 0;    { I/O result buffer }
  37.   RandSeed: Longint = 0;    { Random seed }
  38.   FileMode: Byte = 2;        { File open mode }
  39.   Test8087: Byte = 0;        { 8087 test result }
  40.  
  41. var
  42.   Input: Text;                  { Input standard file }
  43.   Output: Text;            { Output standard file }
  44.   SaveInt00: Pointer;        { Saved interrupt $00 }
  45.   SaveInt02: Pointer;        { Saved interrupt $02 }
  46.   SaveInt09: Pointer;        { Saved interrupt $09 }
  47.   SaveInt1B: Pointer;        { Saved interrupt $1B }
  48.   SaveInt21: Pointer;        { Saved interrupt $21 }
  49.   SaveInt23: Pointer;        { Saved interrupt $23 }
  50.   SaveInt24: Pointer;        { Saved interrupt $24 }
  51.   SaveInt34: Pointer;        { Saved interrupt $34 }
  52.   SaveInt35: Pointer;        { Saved interrupt $35 }
  53.   SaveInt36: Pointer;        { Saved interrupt $36 }
  54.   SaveInt37: Pointer;        { Saved interrupt $37 }
  55.   SaveInt38: Pointer;        { Saved interrupt $38 }
  56.   SaveInt39: Pointer;        { Saved interrupt $39 }
  57.   SaveInt3A: Pointer;        { Saved interrupt $3A }
  58.   SaveInt3B: Pointer;        { Saved interrupt $3B }
  59.   SaveInt3C: Pointer;        { Saved interrupt $3C }
  60.   SaveInt3D: Pointer;        { Saved interrupt $3D }
  61.   SaveInt3E: Pointer;        { Saved interrupt $3E }
  62.   SaveInt3F: Pointer;        { Saved interrupt $3F }
  63.   SaveInt75: Pointer;        { Saved interrupt $75 }
  64.  
  65. implementation
  66.  
  67.  
  68.